
Un1ts 1n P4sc4l.
-----------------


 " cp77fk4r.

 ,         Unit ,   -     .

Unit ,    TPU,       .

   , .
[Ctrl+Alt ]
Program Graphic_Thing.
Uses 
  Graph.
Var
  x,y:integer;
Begin
  Read(x,y);
  Line(x,y,x+100,y);
  Line(x+100,y,x+100,y+100);
  Line(x+100,y+100,x,y+100);
  Line(x,y+100,x,y);
end.
[Ctrl+Alt ]


,          x -y       .
       ,         .
     TPU  "Graph",        .

    "Line",     x1,y1 -x2,y2        
 .

,            ?
               ,      
,                     
  100            ...

? .
      :
;Program Name

  Unit    :
;Unit Name

,   Unit  :

[Ctrl+Alt ]
Unit Name;

Interface


Implementettion
Begin
end.
[Ctrl+Alt ]


 . 
Interface  ""  Unit ,    ,    
  ,  ,    ,          Unit.

Implementettion  ,            Unit .
  ,    Unit -    .

Begin -End,    Unit .


,     Unit,      x1,x2 -y,     .
    :

[Ctrl+Alt ]
Procedure Row(x1,x2,y:integer);
Uses
  Graph;
var
  Temp,i:Integer;
Begin
  if x1 < x2 then 
  begin
    Temp:= x1;
    x1:=x2;
    x2:=Temp;
  end;
  for i:=x1 to x2 do
      pset(i,y);
end;
[Ctrl+Alt ]


, ,          Unit    .
   :

[Ctrl+Alt ]
Unit Lines;
Uses
    Graph;
Interface

Procedure Row(x1,x2,y:integer);


Implementettion

Procedure Row(x1,x2,y);
var
  Temp,i:Integer;
Begin
  if x1 < x2 then 
  begin
    Temp:= x1;
     x1:=x2;
     x2:=Temp;
   end;
   for i:=x1 to x2 do
       pset(i,y);
end;
[Ctrl+Alt ]


  :
 Interface,       ,  ,  ,   .
 Implementettion,      ,     ,       .


,      :


[Ctrl+Alt ]
Procedure Row(x,y1,y2:integer);
Uses
  Graph;
var
  Temp,i:Integer;
Begin
  if y1 < y2 then 
  begin
    Temp:= y1;
    y1:=y2;
    y2:=Temp;
  end;
  for i:=y1 to y2 do
      pset(x,i);
end;
[Ctrl+Alt ]


   Unit :



[Ctrl+Alt ]
Unit Lines;
Uses
    Graph;
Interface

Procedure Row(x1,x2,y:integer);
Procedure Column(x,y1,y2:integer);


Implementettion

Procedure Row(x1,x2,y);
var
  Temp,i:Integer;
Begin
  if x1 < x2 then 
  begin
    Temp:= x1;
     x1:=x2;
     x2:=Temp;
   end;
   for i:=x1 to x2 do
       pset(i,y);
end;

Procedure Column(x,y1,y2);
var
  Temp,i:Integer;
Begin
  if y1 < y2 then 
  begin
    Temp:= y1;
    y1:=y2;
    y2:=Temp;
  end;
  for i:=y1 to y2 do
      pset(x,i);
end;


Begin
end.
[Ctrl+Alt ]


,    Unit     ,     "Lines"   (  
 Unit  Program      Exe  Tpu,      ), 

,   ,  Unit :

[Ctrl+Alt ]
Program Box;
Uses
  Lines;
var
  x,y:Integer;
Begin
  Read(x,y);
  Row(x,x+100,y);
  Column(x+100,y,y+100);
  Row(x+100,x,y+100);
  Column(x,y+100,y);
end.
[Ctrl+Alt ]


  ,    100  100    .
 ,   ,   .

,     ,   ,     .
.




                    -  ,  , Cp77fk4r.



|-----------------------------MADE BY cp77fk4r-----------------------------|



































































